home *** CD-ROM | disk | FTP | other *** search
/ Complete Linux / Complete Linux.iso / docs / apps / circuits / spice2g6.z / spice2g6 / spice / xxor.c < prev   
Encoding:
C/C++ Source or Header  |  1992-11-21  |  736 b   |  34 lines
  1. /* xxor.f -- translated by f2c (version of 3 February 1990  3:36:42).
  2.    You must link the resulting object file with the libraries:
  3.     -lF77 -lI77 -lm -lc   (in that order)
  4. */
  5.  
  6. #include "f2c.h"
  7.  
  8. /*<       integer function xxor(a,b) >*/
  9. integer xxor_(a, b)
  10. doublereal *a, *b;
  11. {
  12.     /* System generated locals */
  13.     integer ret_val;
  14.  
  15. /*<       implicit double precision (a-h,o-z) >*/
  16.  
  17. /*     this routine computes a single-precision integer result which is */
  18.  
  19. /* the result of exclusive-or*ing the two real-valued arguments a and b */
  20.  
  21. /* together. */
  22.  
  23. /*<       xxor=1 >*/
  24.     ret_val = 1;
  25. /*<       if(a.eq.b) xxor=0 >*/
  26.     if (*a == *b) {
  27.     ret_val = 0;
  28.     }
  29. /*<       return >*/
  30.     return ret_val;
  31. /*<       end >*/
  32. } /* xxor_ */
  33.  
  34.